home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / genial / ui / guide_files / histo.G < prev    next >
Encoding:
Text File  |  1992-07-14  |  46.9 KB  |  1,698 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   histo_ctrl
  6.     :owner                  nil
  7.     :width                  311
  8.     :height                 390
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Histogram Color Control"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            nil
  15.     :resizable              nil
  16.     :pinned                 t
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  histo_ctrl
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  311
  30.     :height                 390
  31.     :background-color       ""
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            t
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :text-field
  42.     :name                   histno
  43.     :owner                  controls1
  44.     :help                   ""
  45.     :x                      4
  46.     :y                      12
  47.     :width                  153
  48.     :height                 15
  49.     :value-x                86
  50.     :value-y                12
  51.     :value-length           2
  52.     :stored-length          80
  53.     :rows                   3
  54.     :foreground-color       ""
  55.     :text-type              :numeric
  56.     :label                  "Histogram:"
  57.     :label-type             :string
  58.     :layout-type            :horizontal
  59.     :value-underlined       t
  60.     :max-value              100
  61.     :min-value              0
  62.     :initial-value          0
  63.     :initial-state          :active
  64.     :read-only              nil
  65.     :notify-handler         histno_proc
  66.     :event-handler          nil
  67.     :user-data              ()
  68.     :actions                (
  69.         (
  70.         :from                   (histo_ctrl histno)
  71.         :when                   (Notify )
  72.         :to                     (histo_ctrl histno)
  73.         :function_type          CallFunction
  74.         :arg_type               ()
  75.         :action                 (histno_proc)
  76.         )
  77.     )
  78. )
  79. (
  80.     :type                   :button
  81.     :name                   clear_all
  82.     :owner                  controls1
  83.     :help                   ""
  84.     :x                      236
  85.     :y                      12
  86.     :width                  70
  87.     :height                 19
  88.     :constant-width         nil
  89.     :button-type            :normal
  90.     :foreground-color       ""
  91.     :label                  "Clear All"
  92.     :label-type             :string
  93.     :initial-state          :active
  94.     :menu                   nil
  95.     :notify-handler         clear_histo_color_proc
  96.     :event-handler          nil
  97.     :user-data              ()
  98.     :actions                (
  99.         (
  100.         :from                   (histo_ctrl clear_all)
  101.         :when                   (Notify )
  102.         :to                     (histo_ctrl clear_all)
  103.         :function_type          CallFunction
  104.         :arg_type               ()
  105.         :action                 (clear_histo_color_proc)
  106.         )
  107.     )
  108. )
  109. (
  110.     :type                   :message
  111.     :name                   message3
  112.     :owner                  controls1
  113.     :help                   ""
  114.     :x                      4
  115.     :y                      40
  116.     :width                  35
  117.     :height                 13
  118.     :foreground-color       ""
  119.     :label                  "Paint"
  120.     :label-type             :string
  121.     :label-bold             t
  122.     :initial-state          :active
  123.     :event-handler          nil
  124.     :user-data              ()
  125.     :actions                ()
  126. )
  127. (
  128.     :type                   :message
  129.     :name                   message4
  130.     :owner                  controls1
  131.     :help                   ""
  132.     :x                      100
  133.     :y                      40
  134.     :width                  41
  135.     :height                 13
  136.     :foreground-color       ""
  137.     :label                  "Select"
  138.     :label-type             :string
  139.     :label-bold             t
  140.     :initial-state          :active
  141.     :event-handler          nil
  142.     :user-data              ()
  143.     :actions                ()
  144. )
  145. (
  146.     :type                   :text-field
  147.     :name                   min1
  148.     :owner                  controls1
  149.     :help                   ""
  150.     :x                      156
  151.     :y                      60
  152.     :width                  136
  153.     :height                 15
  154.     :value-x                193
  155.     :value-y                60
  156.     :value-length           8
  157.     :stored-length          80
  158.     :rows                   3
  159.     :foreground-color       ""
  160.     :text-type              :numeric
  161.     :label                  "Min:"
  162.     :label-type             :string
  163.     :layout-type            :horizontal
  164.     :value-underlined       t
  165.     :max-value              100000000
  166.     :min-value              0
  167.     :initial-value          0
  168.     :initial-state          :active
  169.     :read-only              nil
  170.     :notify-handler         interval1_proc
  171.     :event-handler          nil
  172.     :user-data              ()
  173.     :actions                (
  174.         (
  175.         :from                   (histo_ctrl min1)
  176.         :when                   (Notify )
  177.         :to                     (histo_ctrl min1)
  178.         :function_type          CallFunction
  179.         :arg_type               ()
  180.         :action                 (interval1_proc)
  181.         )
  182.     )
  183. )
  184. (
  185.     :type                   :setting
  186.     :name                   pnt1
  187.     :owner                  controls1
  188.     :help                   ""
  189.     :x                      12
  190.     :y                      64
  191.     :width                  34
  192.     :height                 23
  193.     :value-x                12
  194.     :value-y                64
  195.     :rows                   0
  196.     :columns                1
  197.     :layout-type            :vertical
  198.     :foreground-color       ""
  199.     :setting-type           :check
  200.     :selection-required     t
  201.     :label                  ""
  202.     :label-type             :string
  203.     :notify-handler         histo_color_paint_proc
  204.     :event-handler          nil
  205.     :choices                ("" )
  206.     :choice-label-types     (:string )
  207.     :choice-colors          ("" )
  208.     :initial-selections     (nil )
  209.     :initial-state          :active
  210.     :user-data              ()
  211.     :actions                (
  212.         (
  213.         :from                   (histo_ctrl pnt1)
  214.         :when                   (Notify )
  215.         :to                     (histo_ctrl pnt1)
  216.         :function_type          CallFunction
  217.         :arg_type               ()
  218.         :action                 (histo_color_paint_proc)
  219.         )
  220.     )
  221. )
  222. (
  223.     :type                   :setting
  224.     :name                   sel1
  225.     :owner                  controls1
  226.     :help                   ""
  227.     :x                      104
  228.     :y                      64
  229.     :width                  34
  230.     :height                 23
  231.     :value-x                104
  232.     :value-y                64
  233.     :rows                   0
  234.     :columns                1
  235.     :layout-type            :vertical
  236.     :foreground-color       ""
  237.     :setting-type           :check
  238.     :selection-required     t
  239.     :label                  ""
  240.     :label-type             :string
  241.     :notify-handler         histo_color_select_proc
  242.     :event-handler          nil
  243.     :choices                ("" )
  244.     :choice-label-types     (:string )
  245.     :choice-colors          ("" )
  246.     :initial-selections     (nil )
  247.     :initial-state          :active
  248.     :user-data              ()
  249.     :actions                (
  250.         (
  251.         :from                   (histo_ctrl sel1)
  252.         :when                   (Notify )
  253.         :to                     (histo_ctrl sel1)
  254.         :function_type          CallFunction
  255.         :arg_type               ()
  256.         :action                 (histo_color_select_proc)
  257.         )
  258.     )
  259. )
  260. (
  261.     :type                   :text-field
  262.     :name                   max1
  263.     :owner                  controls1
  264.     :help                   ""
  265.     :x                      156
  266.     :y                      76
  267.     :width                  137
  268.     :height                 15
  269.     :value-x                194
  270.     :value-y                76
  271.     :value-length           8
  272.     :stored-length          80
  273.     :rows                   3
  274.     :foreground-color       ""
  275.     :text-type              :numeric
  276.     :label                  "Max:"
  277.     :label-type             :string
  278.     :layout-type            :horizontal
  279.     :value-underlined       t
  280.     :max-value              100000000
  281.     :min-value              0
  282.     :initial-value          0
  283.     :initial-state          :active
  284.     :read-only              nil
  285.     :notify-handler         interval1_proc
  286.     :event-handler          nil
  287.     :user-data              ()
  288.     :actions                (
  289.         (
  290.         :from                   (histo_ctrl max1)
  291.         :when                   (Notify )
  292.         :to                     (histo_ctrl max1)
  293.         :function_type          CallFunction
  294.         :arg_type               ()
  295.         :action                 (interval1_proc)
  296.         )
  297.     )
  298. )
  299. (
  300.     :type                   :setting
  301.     :name                   pnt2
  302.     :owner                  controls1
  303.     :help                   ""
  304.     :x                      12
  305.     :y                      104
  306.     :width                  34
  307.     :height                 23
  308.     :value-x                12
  309.     :value-y                104
  310.     :rows                   1
  311.     :columns                0
  312.     :layout-type            :horizontal
  313.     :foreground-color       ""
  314.     :setting-type           :check
  315.     :selection-required     t
  316.     :label                  ""
  317.     :label-type             :string
  318.     :notify-handler         histo_color_paint_proc
  319.     :event-handler          nil
  320.     :choices                ("" )
  321.     :choice-label-types     (:string )
  322.     :choice-colors          ("" )
  323.     :initial-selections     (nil )
  324.     :initial-state          :active
  325.     :user-data              ()
  326.     :actions                (
  327.         (
  328.         :from                   (histo_ctrl pnt2)
  329.         :when                   (Notify )
  330.         :to                     (histo_ctrl pnt2)
  331.         :function_type          CallFunction
  332.         :arg_type               ()
  333.         :action                 (histo_color_paint_proc)
  334.         )
  335.     )
  336. )
  337. (
  338.     :type                   :setting
  339.     :name                   sel2
  340.     :owner                  controls1
  341.     :help                   ""
  342.     :x                      104
  343.     :y                      104
  344.     :width                  34
  345.     :height                 23
  346.     :value-x                104
  347.     :value-y                104
  348.     :rows                   1
  349.     :columns                0
  350.     :layout-type            :horizontal
  351.     :foreground-color       ""
  352.     :setting-type           :check
  353.     :selection-required     t
  354.     :label                  ""
  355.     :label-type             :string
  356.     :notify-handler         histo_color_select_proc
  357.     :event-handler          nil
  358.     :choices                ("" )
  359.     :choice-label-types     (:string )
  360.     :choice-colors          ("" )
  361.     :initial-selections     (nil )
  362.     :initial-state          :active
  363.     :user-data              ()
  364.     :actions                (
  365.         (
  366.         :from                   (histo_ctrl sel2)
  367.         :when                   (Notify )
  368.         :to                     (histo_ctrl sel2)
  369.         :function_type          CallFunction
  370.         :arg_type               ()
  371.         :action                 (histo_color_select_proc)
  372.         )
  373.     )
  374. )
  375. (
  376.     :type                   :text-field
  377.     :name                   min2
  378.     :owner                  controls1
  379.     :help                   ""
  380.     :x                      156
  381.     :y                      104
  382.     :width                  136
  383.     :height                 15
  384.     :value-x                193
  385.     :value-y                104
  386.     :value-length           8
  387.     :stored-length          80
  388.     :rows                   3
  389.     :foreground-color       ""
  390.     :text-type              :numeric
  391.     :label                  "Min:"
  392.     :label-type             :string
  393.     :layout-type            :horizontal
  394.     :value-underlined       t
  395.     :max-value              100000000
  396.     :min-value              0
  397.     :initial-value          0
  398.     :initial-state          :active
  399.     :read-only              nil
  400.     :notify-handler         interval2_proc
  401.     :event-handler          nil
  402.     :user-data              ()
  403.     :actions                (
  404.         (
  405.         :from                   (histo_ctrl min2)
  406.         :when                   (Notify )
  407.         :to                     (histo_ctrl min2)
  408.         :function_type          CallFunction
  409.         :arg_type               ()
  410.         :action                 (interval2_proc)
  411.         )
  412.     )
  413. )
  414. (
  415.     :type                   :text-field
  416.     :name                   max2
  417.     :owner                  controls1
  418.     :help                   ""
  419.     :x                      156
  420.     :y                      120
  421.     :width                  137
  422.     :height                 15
  423.     :value-x                194
  424.     :value-y                120
  425.     :value-length           8
  426.     :stored-length          80
  427.     :rows                   3
  428.     :foreground-color       ""
  429.     :text-type              :numeric
  430.     :label                  "Max:"
  431.     :label-type             :string
  432.     :layout-type            :horizontal
  433.     :value-underlined       t
  434.     :max-value              100000000
  435.     :min-value              0
  436.     :initial-value          0
  437.     :initial-state          :active
  438.     :read-only              nil
  439.     :notify-handler         interval2_proc
  440.     :event-handler          nil
  441.     :user-data              ()
  442.     :actions                (
  443.         (
  444.         :from                   (histo_ctrl max2)
  445.         :when                   (Notify )
  446.         :to                     (histo_ctrl max2)
  447.         :function_type          CallFunction
  448.         :arg_type               ()
  449.         :action                 (interval2_proc)
  450.         )
  451.     )
  452. )
  453. (
  454.     :type                   :setting
  455.     :name                   pnt3
  456.     :owner                  controls1
  457.     :help                   ""
  458.     :x                      12
  459.     :y                      144
  460.     :width                  34
  461.     :height                 23
  462.     :value-x                12
  463.     :value-y                144
  464.     :rows                   1
  465.     :columns                0
  466.     :layout-type            :horizontal
  467.     :foreground-color       ""
  468.     :setting-type           :check
  469.     :selection-required     t
  470.     :label                  ""
  471.     :label-type             :string
  472.     :notify-handler         histo_color_paint_proc
  473.     :event-handler          nil
  474.     :choices                ("" )
  475.     :choice-label-types     (:string )
  476.     :choice-colors          ("" )
  477.     :initial-selections     (nil )
  478.     :initial-state          :active
  479.     :user-data              ()
  480.     :actions                (
  481.         (
  482.         :from                   (histo_ctrl pnt3)
  483.         :when                   (Notify )
  484.         :to                     (histo_ctrl pnt3)
  485.         :function_type          CallFunction
  486.         :arg_type               ()
  487.         :action                 (histo_color_paint_proc)
  488.         )
  489.     )
  490. )
  491. (
  492.     :type                   :setting
  493.     :name                   sel3
  494.     :owner                  controls1
  495.     :help                   ""
  496.     :x                      104
  497.     :y                      144
  498.     :width                  34
  499.     :height                 23
  500.     :value-x                104
  501.     :value-y                144
  502.     :rows                   1
  503.     :columns                0
  504.     :layout-type            :horizontal
  505.     :foreground-color       ""
  506.     :setting-type           :check
  507.     :selection-required     t
  508.     :label                  ""
  509.     :label-type             :string
  510.     :notify-handler         histo_color_select_proc
  511.     :event-handler          nil
  512.     :choices                ("" )
  513.     :choice-label-types     (:string )
  514.     :choice-colors          ("" )
  515.     :initial-selections     (nil )
  516.     :initial-state          :active
  517.     :user-data              ()
  518.     :actions                (
  519.         (
  520.         :from                   (histo_ctrl sel3)
  521.         :when                   (Notify )
  522.         :to                     (histo_ctrl sel3)
  523.         :function_type          CallFunction
  524.         :arg_type               ()
  525.         :action                 (histo_color_select_proc)
  526.         )
  527.     )
  528. )
  529. (
  530.     :type                   :text-field
  531.     :name                   min3
  532.     :owner                  controls1
  533.     :help                   ""
  534.     :x                      156
  535.     :y                      144
  536.     :width                  136
  537.     :height                 15
  538.     :value-x                193
  539.     :value-y                144
  540.     :value-length           8
  541.     :stored-length          80
  542.     :rows                   3
  543.     :foreground-color       ""
  544.     :text-type              :numeric
  545.     :label                  "Min:"
  546.     :label-type             :string
  547.     :layout-type            :horizontal
  548.     :value-underlined       t
  549.     :max-value              100000000
  550.     :min-value              0
  551.     :initial-value          0
  552.     :initial-state          :active
  553.     :read-only              nil
  554.     :notify-handler         interval3_proc
  555.     :event-handler          nil
  556.     :user-data              ()
  557.     :actions                (
  558.         (
  559.         :from                   (histo_ctrl min3)
  560.         :when                   (Notify )
  561.         :to                     (histo_ctrl min3)
  562.         :function_type          CallFunction
  563.         :arg_type               ()
  564.         :action                 (interval3_proc)
  565.         )
  566.     )
  567. )
  568. (
  569.     :type                   :text-field
  570.     :name                   max3
  571.     :owner                  controls1
  572.     :help                   ""
  573.     :x                      156
  574.     :y                      160
  575.     :width                  137
  576.     :height                 15
  577.     :value-x                194
  578.     :value-y                160
  579.     :value-length           8
  580.     :stored-length          80
  581.     :rows                   3
  582.     :foreground-color       ""
  583.     :text-type              :numeric
  584.     :label                  "Max:"
  585.     :label-type             :string
  586.     :layout-type            :horizontal
  587.     :value-underlined       t
  588.     :max-value              100000000
  589.     :min-value              0
  590.     :initial-value          0
  591.     :initial-state          :active
  592.     :read-only              nil
  593.     :notify-handler         interval3_proc
  594.     :event-handler          nil
  595.     :user-data              ()
  596.     :actions                (
  597.         (
  598.         :from                   (histo_ctrl max3)
  599.         :when                   (Notify )
  600.         :to                     (histo_ctrl max3)
  601.         :function_type          CallFunction
  602.         :arg_type               ()
  603.         :action                 (interval3_proc)
  604.         )
  605.     )
  606. )
  607. (
  608.     :type                   :setting
  609.     :name                   pnt4
  610.     :owner                  controls1
  611.     :help                   ""
  612.     :x                      12
  613.     :y                      184
  614.     :width                  34
  615.     :height                 23
  616.     :value-x                12
  617.     :value-y                184
  618.     :rows                   1
  619.     :columns                0
  620.     :layout-type            :horizontal
  621.     :foreground-color       ""
  622.     :setting-type           :check
  623.     :selection-required     t
  624.     :label                  ""
  625.     :label-type             :string
  626.     :notify-handler         histo_color_paint_proc
  627.     :event-handler          nil
  628.     :choices                ("" )
  629.     :choice-label-types     (:string )
  630.     :choice-colors          ("" )
  631.     :initial-selections     (nil )
  632.     :initial-state          :active
  633.     :user-data              ()
  634.     :actions                (
  635.         (
  636.         :from                   (histo_ctrl pnt4)
  637.         :when                   (Notify )
  638.         :to                     (histo_ctrl pnt4)
  639.         :function_type          CallFunction
  640.         :arg_type               ()
  641.         :action                 (histo_color_paint_proc)
  642.         )
  643.     )
  644. )
  645. (
  646.     :type                   :setting
  647.     :name                   sel4
  648.     :owner                  controls1
  649.     :help                   ""
  650.     :x                      104
  651.     :y                      184
  652.     :width                  34
  653.     :height                 23
  654.     :value-x                104
  655.     :value-y                184
  656.     :rows                   1
  657.     :columns                0
  658.     :layout-type            :horizontal
  659.     :foreground-color       ""
  660.     :setting-type           :check
  661.     :selection-required     t
  662.     :label                  ""
  663.     :label-type             :string
  664.     :notify-handler         histo_color_select_proc
  665.     :event-handler          nil
  666.     :choices                ("" )
  667.     :choice-label-types     (:string )
  668.     :choice-colors          ("" )
  669.     :initial-selections     (nil )
  670.     :initial-state          :active
  671.     :user-data              ()
  672.     :actions                (
  673.         (
  674.         :from                   (histo_ctrl sel4)
  675.         :when                   (Notify )
  676.         :to                     (histo_ctrl sel4)
  677.         :function_type          CallFunction
  678.         :arg_type               ()
  679.         :action                 (histo_color_select_proc)
  680.         )
  681.     )
  682. )
  683. (
  684.     :type                   :text-field
  685.     :name                   min4
  686.     :owner                  controls1
  687.     :help                   ""
  688.     :x                      156
  689.     :y                      184
  690.     :width                  136
  691.     :height                 15
  692.     :value-x                193
  693.     :value-y                184
  694.     :value-length           8
  695.     :stored-length          80
  696.     :rows                   3
  697.     :foreground-color       ""
  698.     :text-type              :numeric
  699.     :label                  "Min:"
  700.     :label-type             :string
  701.     :layout-type            :horizontal
  702.     :value-underlined       t
  703.     :max-value              100000000
  704.     :min-value              0
  705.     :initial-value          0
  706.     :initial-state          :active
  707.     :read-only              nil
  708.     :notify-handler         interval4_proc
  709.     :event-handler          nil
  710.     :user-data              ()
  711.     :actions                (
  712.         (
  713.         :from                   (histo_ctrl min4)
  714.         :when                   (Notify )
  715.         :to                     (histo_ctrl min4)
  716.         :function_type          CallFunction
  717.         :arg_type               ()
  718.         :action                 (interval4_proc)
  719.         )
  720.     )
  721. )
  722. (
  723.     :type                   :text-field
  724.     :name                   max4
  725.     :owner                  controls1
  726.     :help                   ""
  727.     :x                      156
  728.     :y                      200
  729.     :width                  137
  730.     :height                 15
  731.     :value-x                194
  732.     :value-y                200
  733.     :value-length           8
  734.     :stored-length          80
  735.     :rows                   3
  736.     :foreground-color       ""
  737.     :text-type              :numeric
  738.     :label                  "Max:"
  739.     :label-type             :string
  740.     :layout-type            :horizontal
  741.     :value-underlined       t
  742.     :max-value              100000000
  743.     :min-value              0
  744.     :initial-value          0
  745.     :initial-state          :active
  746.     :read-only              nil
  747.     :notify-handler         interval4_proc
  748.     :event-handler          nil
  749.     :user-data              ()
  750.     :actions                (
  751.         (
  752.         :from                   (histo_ctrl max4)
  753.         :when                   (Notify )
  754.         :to                     (histo_ctrl max4)
  755.         :function_type          CallFunction
  756.         :arg_type               ()
  757.         :action                 (interval4_proc)
  758.         )
  759.     )
  760. )
  761. (
  762.     :type                   :setting
  763.     :name                   pnt5
  764.     :owner                  controls1
  765.     :help                   ""
  766.     :x                      12
  767.     :y                      224
  768.     :width                  34
  769.     :height                 23
  770.     :value-x                12
  771.     :value-y                224
  772.     :rows                   1
  773.     :columns                0
  774.     :layout-type            :horizontal
  775.     :foreground-color       ""
  776.     :setting-type           :check
  777.     :selection-required     t
  778.     :label                  ""
  779.     :label-type             :string
  780.     :notify-handler         histo_color_paint_proc
  781.     :event-handler          nil
  782.     :choices                ("" )
  783.     :choice-label-types     (:string )
  784.     :choice-colors          ("" )
  785.     :initial-selections     (nil )
  786.     :initial-state          :active
  787.     :user-data              ()
  788.     :actions                (
  789.         (
  790.         :from                   (histo_ctrl pnt5)
  791.         :when                   (Notify )
  792.         :to                     (histo_ctrl pnt5)
  793.         :function_type          CallFunction
  794.         :arg_type               ()
  795.         :action                 (histo_color_paint_proc)
  796.         )
  797.     )
  798. )
  799. (
  800.     :type                   :setting
  801.     :name                   sel5
  802.     :owner                  controls1
  803.     :help                   ""
  804.     :x                      104
  805.     :y                      224
  806.     :width                  34
  807.     :height                 23
  808.     :value-x                104
  809.     :value-y                224
  810.     :rows                   1
  811.     :columns                0
  812.     :layout-type            :horizontal
  813.     :foreground-color       ""
  814.     :setting-type           :check
  815.     :selection-required     t
  816.     :label                  ""
  817.     :label-type             :string
  818.     :notify-handler         histo_color_select_proc
  819.     :event-handler          nil
  820.     :choices                ("" )
  821.     :choice-label-types     (:string )
  822.     :choice-colors          ("" )
  823.     :initial-selections     (nil )
  824.     :initial-state          :active
  825.     :user-data              ()
  826.     :actions                (
  827.         (
  828.         :from                   (histo_ctrl sel5)
  829.         :when                   (Notify )
  830.         :to                     (histo_ctrl sel5)
  831.         :function_type          CallFunction
  832.         :arg_type               ()
  833.         :action                 (histo_color_select_proc)
  834.         )
  835.     )
  836. )
  837. (
  838.     :type                   :text-field
  839.     :name                   min5
  840.     :owner                  controls1
  841.     :help                   ""
  842.     :x                      156
  843.     :y                      224
  844.     :width                  136
  845.     :height                 15
  846.     :value-x                193
  847.     :value-y                224
  848.     :value-length           8
  849.     :stored-length          80
  850.     :rows                   3
  851.     :foreground-color       ""
  852.     :text-type              :numeric
  853.     :label                  "Min:"
  854.     :label-type             :string
  855.     :layout-type            :horizontal
  856.     :value-underlined       t
  857.     :max-value              100000000
  858.     :min-value              0
  859.     :initial-value          0
  860.     :initial-state          :active
  861.     :read-only              nil
  862.     :notify-handler         interval5_proc
  863.     :event-handler          nil
  864.     :user-data              ()
  865.     :actions                (
  866.         (
  867.         :from                   (histo_ctrl min5)
  868.         :when                   (Notify )
  869.         :to                     (histo_ctrl min5)
  870.         :function_type          CallFunction
  871.         :arg_type               ()
  872.         :action                 (interval5_proc)
  873.         )
  874.     )
  875. )
  876. (
  877.     :type                   :text-field
  878.     :name                   max5
  879.     :owner                  controls1
  880.     :help                   ""
  881.     :x                      156
  882.     :y                      240
  883.     :width                  137
  884.     :height                 15
  885.     :value-x                194
  886.     :value-y                240
  887.     :value-length           8
  888.     :stored-length          80
  889.     :rows                   3
  890.     :foreground-color       ""
  891.     :text-type              :numeric
  892.     :label                  "Max:"
  893.     :label-type             :string
  894.     :layout-type            :horizontal
  895.     :value-underlined       t
  896.     :max-value              100000000
  897.     :min-value              0
  898.     :initial-value          0
  899.     :initial-state          :active
  900.     :read-only              nil
  901.     :notify-handler         interval5_proc
  902.     :event-handler          nil
  903.     :user-data              ()
  904.     :actions                (
  905.         (
  906.         :from                   (histo_ctrl max5)
  907.         :when                   (Notify )
  908.         :to                     (histo_ctrl max5)
  909.         :function_type          CallFunction
  910.         :arg_type               ()
  911.         :action                 (interval5_proc)
  912.         )
  913.     )
  914. )
  915. (
  916.     :type                   :setting
  917.     :name                   pnt6
  918.     :owner                  controls1
  919.     :help                   ""
  920.     :x                      12
  921.     :y                      264
  922.     :width                  34
  923.     :height                 23
  924.     :value-x                12
  925.     :value-y                264
  926.     :rows                   1
  927.     :columns                0
  928.     :layout-type            :horizontal
  929.     :foreground-color       ""
  930.     :setting-type           :check
  931.     :selection-required     t
  932.     :label                  ""
  933.     :label-type             :string
  934.     :notify-handler         histo_color_paint_proc
  935.     :event-handler          nil
  936.     :choices                ("" )
  937.     :choice-label-types     (:string )
  938.     :choice-colors          ("" )
  939.     :initial-selections     (nil )
  940.     :initial-state          :active
  941.     :user-data              ()
  942.     :actions                (
  943.         (
  944.         :from                   (histo_ctrl pnt6)
  945.         :when                   (Notify )
  946.         :to                     (histo_ctrl pnt6)
  947.         :function_type          CallFunction
  948.         :arg_type               ()
  949.         :action                 (histo_color_paint_proc)
  950.         )
  951.     )
  952. )
  953. (
  954.     :type                   :setting
  955.     :name                   sel6
  956.     :owner                  controls1
  957.     :help                   ""
  958.     :x                      104
  959.     :y                      264
  960.     :width                  34
  961.     :height                 23
  962.     :value-x                104
  963.     :value-y                264
  964.     :rows                   1
  965.     :columns                0
  966.     :layout-type            :horizontal
  967.     :foreground-color       ""
  968.     :setting-type           :check
  969.     :selection-required     t
  970.     :label                  ""
  971.     :label-type             :string
  972.     :notify-handler         histo_color_select_proc
  973.     :event-handler          nil
  974.     :choices                ("" )
  975.     :choice-label-types     (:string )
  976.     :choice-colors          ("" )
  977.     :initial-selections     (nil )
  978.     :initial-state          :active
  979.     :user-data              ()
  980.     :actions                (
  981.         (
  982.         :from                   (histo_ctrl sel6)
  983.         :when                   (Notify )
  984.         :to                     (histo_ctrl sel6)
  985.         :function_type          CallFunction
  986.         :arg_type               ()
  987.         :action                 (histo_color_select_proc)
  988.         )
  989.     )
  990. )
  991. (
  992.     :type                   :text-field
  993.     :name                   min6
  994.     :owner                  controls1
  995.     :help                   ""
  996.     :x                      156
  997.     :y                      264
  998.     :width                  136
  999.     :height                 15
  1000.     :value-x                193
  1001.     :value-y                264
  1002.     :value-length           8
  1003.     :stored-length          80
  1004.     :rows                   3
  1005.     :foreground-color       ""
  1006.     :text-type              :numeric
  1007.     :label                  "Min:"
  1008.     :label-type             :string
  1009.     :layout-type            :horizontal
  1010.     :value-underlined       t
  1011.     :max-value              100000000
  1012.     :min-value              0
  1013.     :initial-value          0
  1014.     :initial-state          :active
  1015.     :read-only              nil
  1016.     :notify-handler         interval6_proc
  1017.     :event-handler          nil
  1018.     :user-data              ()
  1019.     :actions                (
  1020.         (
  1021.         :from                   (histo_ctrl min6)
  1022.         :when                   (Notify )
  1023.         :to                     (histo_ctrl min6)
  1024.         :function_type          CallFunction
  1025.         :arg_type               ()
  1026.         :action                 (interval6_proc)
  1027.         )
  1028.     )
  1029. )
  1030. (
  1031.     :type                   :text-field
  1032.     :name                   max6
  1033.     :owner                  controls1
  1034.     :help                   ""
  1035.     :x                      156
  1036.     :y                      280
  1037.     :width                  137
  1038.     :height                 15
  1039.     :value-x                194
  1040.     :value-y                280
  1041.     :value-length           8
  1042.     :stored-length          80
  1043.     :rows                   3
  1044.     :foreground-color       ""
  1045.     :text-type              :numeric
  1046.     :label                  "Max:"
  1047.     :label-type             :string
  1048.     :layout-type            :horizontal
  1049.     :value-underlined       t
  1050.     :max-value              100000000
  1051.     :min-value              0
  1052.     :initial-value          0
  1053.     :initial-state          :active
  1054.     :read-only              nil
  1055.     :notify-handler         interval6_proc
  1056.     :event-handler          nil
  1057.     :user-data              ()
  1058.     :actions                (
  1059.         (
  1060.         :from                   (histo_ctrl max6)
  1061.         :when                   (Notify )
  1062.         :to                     (histo_ctrl max6)
  1063.         :function_type          CallFunction
  1064.         :arg_type               ()
  1065.         :action                 (interval6_proc)
  1066.         )
  1067.     )
  1068. )
  1069. (
  1070.     :type                   :setting
  1071.     :name                   pnt7
  1072.     :owner                  controls1
  1073.     :help                   ""
  1074.     :x                      12
  1075.     :y                      304
  1076.     :width                  34
  1077.     :height                 23
  1078.     :value-x                12
  1079.     :value-y                304
  1080.     :rows                   1
  1081.     :columns                0
  1082.     :layout-type            :horizontal
  1083.     :foreground-color       ""
  1084.     :setting-type           :check
  1085.     :selection-required     t
  1086.     :label                  ""
  1087.     :label-type             :string
  1088.     :notify-handler         histo_color_paint_proc
  1089.     :event-handler          nil
  1090.     :choices                ("" )
  1091.     :choice-label-types     (:string )
  1092.     :choice-colors          ("" )
  1093.     :initial-selections     (nil )
  1094.     :initial-state          :active
  1095.     :user-data              ()
  1096.     :actions                (
  1097.         (
  1098.         :from                   (histo_ctrl pnt7)
  1099.         :when                   (Notify )
  1100.         :to                     (histo_ctrl pnt7)
  1101.         :function_type          CallFunction
  1102.         :arg_type               ()
  1103.         :action                 (histo_color_paint_proc)
  1104.         )
  1105.     )
  1106. )
  1107. (
  1108.     :type                   :setting
  1109.     :name                   sel7
  1110.     :owner                  controls1
  1111.     :help                   ""
  1112.     :x                      104
  1113.     :y                      304
  1114.     :width                  34
  1115.     :height                 23
  1116.     :value-x                104
  1117.     :value-y                304
  1118.     :rows                   1
  1119.     :columns                0
  1120.     :layout-type            :horizontal
  1121.     :foreground-color       ""
  1122.     :setting-type           :check
  1123.     :selection-required     t
  1124.     :label                  ""
  1125.     :label-type             :string
  1126.     :notify-handler         histo_color_select_proc
  1127.     :event-handler          nil
  1128.     :choices                ("" )
  1129.     :choice-label-types     (:string )
  1130.     :choice-colors          ("" )
  1131.     :initial-selections     (nil )
  1132.     :initial-state          :active
  1133.     :user-data              ()
  1134.     :actions                (
  1135.         (
  1136.         :from                   (histo_ctrl sel7)
  1137.         :when                   (Notify )
  1138.         :to                     (histo_ctrl sel7)
  1139.         :function_type          CallFunction
  1140.         :arg_type               ()
  1141.         :action                 (histo_color_select_proc)
  1142.         )
  1143.     )
  1144. )
  1145. (
  1146.     :type                   :text-field
  1147.     :name                   min7
  1148.     :owner                  controls1
  1149.     :help                   ""
  1150.     :x                      156
  1151.     :y                      304
  1152.     :width                  136
  1153.     :height                 15
  1154.     :value-x                193
  1155.     :value-y                304
  1156.     :value-length           8
  1157.     :stored-length          80
  1158.     :rows                   3
  1159.     :foreground-color       ""
  1160.     :text-type              :numeric
  1161.     :label                  "Min:"
  1162.     :label-type             :string
  1163.     :layout-type            :horizontal
  1164.     :value-underlined       t
  1165.     :max-value              100000000
  1166.     :min-value              0
  1167.     :initial-value          0
  1168.     :initial-state          :active
  1169.     :read-only              nil
  1170.     :notify-handler         interval7_proc
  1171.     :event-handler          nil
  1172.     :user-data              ()
  1173.     :actions                (
  1174.         (
  1175.         :from                   (histo_ctrl min7)
  1176.         :when                   (Notify )
  1177.         :to                     (histo_ctrl min7)
  1178.         :function_type          CallFunction
  1179.         :arg_type               ()
  1180.         :action                 (interval7_proc)
  1181.         )
  1182.     )
  1183. )
  1184. (
  1185.     :type                   :text-field
  1186.     :name                   max7
  1187.     :owner                  controls1
  1188.     :help                   ""
  1189.     :x                      156
  1190.     :y                      320
  1191.     :width                  137
  1192.     :height                 15
  1193.     :value-x                194
  1194.     :value-y                320
  1195.     :value-length           8
  1196.     :stored-length          80
  1197.     :rows                   3
  1198.     :foreground-color       ""
  1199.     :text-type              :numeric
  1200.     :label                  "Max:"
  1201.     :label-type             :string
  1202.     :layout-type            :horizontal
  1203.     :value-underlined       t
  1204.     :max-value              100000000
  1205.     :min-value              0
  1206.     :initial-value          0
  1207.     :initial-state          :active
  1208.     :read-only              nil
  1209.     :notify-handler         interval7_proc
  1210.     :event-handler          nil
  1211.     :user-data              ()
  1212.     :actions                (
  1213.         (
  1214.         :from                   (histo_ctrl max7)
  1215.         :when                   (Notify )
  1216.         :to                     (histo_ctrl max7)
  1217.         :function_type          CallFunction
  1218.         :arg_type               ()
  1219.         :action                 (interval7_proc)
  1220.         )
  1221.     )
  1222. )
  1223. (
  1224.     :type                   :setting
  1225.     :name                   pnt8
  1226.     :owner                  controls1
  1227.     :help                   ""
  1228.     :x                      12
  1229.     :y                      344
  1230.     :width                  34
  1231.     :height                 23
  1232.     :value-x                12
  1233.     :value-y                344
  1234.     :rows                   1
  1235.     :columns                0
  1236.     :layout-type            :horizontal
  1237.     :foreground-color       ""
  1238.     :setting-type           :check
  1239.     :selection-required     t
  1240.     :label                  ""
  1241.     :label-type             :string
  1242.     :notify-handler         histo_color_paint_proc
  1243.     :event-handler          nil
  1244.     :choices                ("" )
  1245.     :choice-label-types     (:string )
  1246.     :choice-colors          ("" )
  1247.     :initial-selections     (nil )
  1248.     :initial-state          :active
  1249.     :user-data              ()
  1250.     :actions                (
  1251.         (
  1252.         :from                   (histo_ctrl pnt8)
  1253.         :when                   (Notify )
  1254.         :to                     (histo_ctrl pnt8)
  1255.         :function_type          CallFunction
  1256.         :arg_type               ()
  1257.         :action                 (histo_color_paint_proc)
  1258.         )
  1259.     )
  1260. )
  1261. (
  1262.     :type                   :setting
  1263.     :name                   sel8
  1264.     :owner                  controls1
  1265.     :help                   ""
  1266.     :x                      104
  1267.     :y                      344
  1268.     :width                  34
  1269.     :height                 23
  1270.     :value-x                104
  1271.     :value-y                344
  1272.     :rows                   1
  1273.     :columns                0
  1274.     :layout-type            :horizontal
  1275.     :foreground-color       ""
  1276.     :setting-type           :check
  1277.     :selection-required     t
  1278.     :label                  ""
  1279.     :label-type             :string
  1280.     :notify-handler         histo_color_select_proc
  1281.     :event-handler          nil
  1282.     :choices                ("" )
  1283.     :choice-label-types     (:string )
  1284.     :choice-colors          ("" )
  1285.     :initial-selections     (nil )
  1286.     :initial-state          :active
  1287.     :user-data              ()
  1288.     :actions                (
  1289.         (
  1290.         :from                   (histo_ctrl sel8)
  1291.         :when                   (Notify )
  1292.         :to                     (histo_ctrl sel8)
  1293.         :function_type          CallFunction
  1294.         :arg_type               ()
  1295.         :action                 (histo_color_select_proc)
  1296.         )
  1297.     )
  1298. )
  1299. (
  1300.     :type                   :text-field
  1301.     :name                   min8
  1302.     :owner                  controls1
  1303.     :help                   ""
  1304.     :x                      156
  1305.     :y                      344
  1306.     :width                  136
  1307.     :height                 15
  1308.     :value-x                193
  1309.     :value-y                344
  1310.     :value-length           8
  1311.     :stored-length          80
  1312.     :rows                   3
  1313.     :foreground-color       ""
  1314.     :text-type              :numeric
  1315.     :label                  "Min:"
  1316.     :label-type             :string
  1317.     :layout-type            :horizontal
  1318.     :value-underlined       t
  1319.     :max-value              100000000
  1320.     :min-value              0
  1321.     :initial-value          0
  1322.     :initial-state          :active
  1323.     :read-only              nil
  1324.     :notify-handler         interval8_proc
  1325.     :event-handler          nil
  1326.     :user-data              ()
  1327.     :actions                (
  1328.         (
  1329.         :from                   (histo_ctrl min8)
  1330.         :when                   (Notify )
  1331.         :to                     (histo_ctrl min8)
  1332.         :function_type          CallFunction
  1333.         :arg_type               ()
  1334.         :action                 (interval8_proc)
  1335.         )
  1336.     )
  1337. )
  1338. (
  1339.     :type                   :text-field
  1340.     :name                   max8
  1341.     :owner                  controls1
  1342.     :help                   ""
  1343.     :x                      156
  1344.     :y                      360
  1345.     :width                  137
  1346.     :height                 15
  1347.     :value-x                194
  1348.     :value-y                360
  1349.     :value-length           8
  1350.     :stored-length          80
  1351.     :rows                   3
  1352.     :foreground-color       ""
  1353.     :text-type              :numeric
  1354.     :label                  "Max:"
  1355.     :label-type             :string
  1356.     :layout-type            :horizontal
  1357.     :value-underlined       t
  1358.     :max-value              100000000
  1359.     :min-value              0
  1360.     :initial-value          0
  1361.     :initial-state          :active
  1362.     :read-only              nil
  1363.     :notify-handler         interval8_proc
  1364.     :event-handler          nil
  1365.     :user-data              ()
  1366.     :actions                (
  1367.         (
  1368.         :from                   (histo_ctrl max8)
  1369.         :when                   (Notify )
  1370.         :to                     (histo_ctrl max8)
  1371.         :function_type          CallFunction
  1372.         :arg_type               ()
  1373.         :action                 (interval8_proc)
  1374.         )
  1375.     )
  1376. )
  1377. (
  1378.     :type                   :canvas-pane
  1379.     :name                   palcanv
  1380.     :owner                  histo_ctrl
  1381.     :help                   ""
  1382.     :x                      44
  1383.     :y                      58
  1384.     :width                  43
  1385.     :height                 323
  1386.     :background-color       ""
  1387.     :foreground-color       ""
  1388.     :initial-state          :visible
  1389.     :draggable              nil
  1390.     :droppable              nil
  1391.     :default-drop-site      nil
  1392.     :menu                   nil
  1393.     :horizontal-scrollbar   nil
  1394.     :scrollable-width       43
  1395.     :vertical-scrollbar     nil
  1396.     :scrollable-height      323
  1397.     :repaint-proc           palcanv_repaint_proc
  1398.     :event-handler          nil
  1399.     :drawing-model          :xwindows
  1400.     :user-data              ()
  1401.     :actions                (
  1402.         (
  1403.         :from                   (histo_ctrl palcanv)
  1404.         :when                   (Repaint )
  1405.         :to                     (histo_ctrl palcanv)
  1406.         :function_type          CallFunction
  1407.         :arg_type               ()
  1408.         :action                 (palcanv_repaint_proc)
  1409.         )
  1410.     )
  1411. )
  1412. (
  1413.     :type                   :base-window
  1414.     :name                   display
  1415.     :owner                  nil
  1416.     :width                  565
  1417.     :height                 419
  1418.     :background-color       ""
  1419.     :foreground-color       ""
  1420.     :label                  "Histogram Display"
  1421.     :label-type             :string
  1422.     :initial-state          :invisible
  1423.     :show-footer            nil
  1424.     :resizable              nil
  1425.     :icon-file              ""
  1426.     :icon-label             ""
  1427.     :icon-mask-file         ""
  1428.     :event-handler          nil
  1429.     :user-data              ()
  1430.     :actions                ()
  1431. )
  1432. (
  1433.     :type                   :control-area
  1434.     :name                   controls2
  1435.     :owner                  display
  1436.     :help                   ""
  1437.     :x                      0
  1438.     :y                      0
  1439.     :width                  565
  1440.     :height                 72
  1441.     :background-color       ""
  1442.     :foreground-color       ""
  1443.     :initial-state          :visible
  1444.     :show-border            t
  1445.     :menu                   nil
  1446.     :event-handler          nil
  1447.     :user-data              ()
  1448.     :actions                ()
  1449. )
  1450. (
  1451.     :type                   :message
  1452.     :name                   message1
  1453.     :owner                  controls2
  1454.     :help                   ""
  1455.     :x                      32
  1456.     :y                      8
  1457.     :width                  113
  1458.     :height                 13
  1459.     :foreground-color       ""
  1460.     :label                  "Pixel Value: NNN"
  1461.     :label-type             :string
  1462.     :label-bold             t
  1463.     :initial-state          :active
  1464.     :event-handler          nil
  1465.     :user-data              ()
  1466.     :actions                ()
  1467. )
  1468. (
  1469.     :type                   :button
  1470.     :name                   color_histo
  1471.     :owner                  controls2
  1472.     :help                   ""
  1473.     :x                      284
  1474.     :y                      8
  1475.     :width                  59
  1476.     :height                 19
  1477.     :constant-width         nil
  1478.     :button-type            :normal
  1479.     :foreground-color       ""
  1480.     :label                  "Color..."
  1481.     :label-type             :string
  1482.     :initial-state          :active
  1483.     :menu                   nil
  1484.     :notify-handler         histo_color_opts
  1485.     :event-handler          nil
  1486.     :user-data              ()
  1487.     :actions                (
  1488.         (
  1489.         :from                   (display color_histo)
  1490.         :when                   (Notify )
  1491.         :to                     (display color_histo)
  1492.         :function_type          CallFunction
  1493.         :arg_type               ()
  1494.         :action                 (histo_color_opts)
  1495.         )
  1496.     )
  1497. )
  1498. (
  1499.     :type                   :button
  1500.     :name                   refresh
  1501.     :owner                  controls2
  1502.     :help                   ""
  1503.     :x                      488
  1504.     :y                      8
  1505.     :width                  64
  1506.     :height                 19
  1507.     :constant-width         nil
  1508.     :button-type            :normal
  1509.     :foreground-color       ""
  1510.     :label                  "Refresh"
  1511.     :label-type             :string
  1512.     :initial-state          :active
  1513.     :menu                   nil
  1514.     :notify-handler         histo_refresh_proc
  1515.     :event-handler          nil
  1516.     :user-data              ()
  1517.     :actions                (
  1518.         (
  1519.         :from                   (display refresh)
  1520.         :when                   (Notify )
  1521.         :to                     (display refresh)
  1522.         :function_type          CallFunction
  1523.         :arg_type               ()
  1524.         :action                 (histo_refresh_proc)
  1525.         )
  1526.     )
  1527. )
  1528. (
  1529.     :type                   :message
  1530.     :name                   message2
  1531.     :owner                  controls2
  1532.     :help                   ""
  1533.     :x                      32
  1534.     :y                      28
  1535.     :width                  114
  1536.     :height                 13
  1537.     :foreground-color       ""
  1538.     :label                  "Pixel Count: NNN"
  1539.     :label-type             :string
  1540.     :label-bold             t
  1541.     :initial-state          :active
  1542.     :event-handler          nil
  1543.     :user-data              ()
  1544.     :actions                ()
  1545. )
  1546. (
  1547.     :type                   :button
  1548.     :name                   magnify
  1549.     :owner                  controls2
  1550.     :help                   ""
  1551.     :x                      280
  1552.     :y                      40
  1553.     :width                  67
  1554.     :height                 19
  1555.     :constant-width         nil
  1556.     :button-type            :normal
  1557.     :foreground-color       ""
  1558.     :label                  "Magnify"
  1559.     :label-type             :string
  1560.     :initial-state          :active
  1561.     :menu                   nil
  1562.     :notify-handler         mag_proc
  1563.     :event-handler          nil
  1564.     :user-data              ()
  1565.     :actions                (
  1566.         (
  1567.         :from                   (display magnify)
  1568.         :when                   (Notify )
  1569.         :to                     (display magnify)
  1570.         :function_type          CallFunction
  1571.         :arg_type               ()
  1572.         :action                 (mag_proc)
  1573.         )
  1574.     )
  1575. )
  1576. (
  1577.     :type                   :button
  1578.     :name                   unmagnify
  1579.     :owner                  controls2
  1580.     :help                   ""
  1581.     :x                      360
  1582.     :y                      40
  1583.     :width                  85
  1584.     :height                 19
  1585.     :constant-width         nil
  1586.     :button-type            :normal
  1587.     :foreground-color       ""
  1588.     :label                  "Unmagnify"
  1589.     :label-type             :string
  1590.     :initial-state          :active
  1591.     :menu                   nil
  1592.     :notify-handler         unmag_proc
  1593.     :event-handler          nil
  1594.     :user-data              ()
  1595.     :actions                (
  1596.         (
  1597.         :from                   (display unmagnify)
  1598.         :when                   (Notify )
  1599.         :to                     (display unmagnify)
  1600.         :function_type          CallFunction
  1601.         :arg_type               ()
  1602.         :action                 (unmag_proc)
  1603.         )
  1604.     )
  1605. )
  1606. (
  1607.     :type                   :button
  1608.     :name                   restore
  1609.     :owner                  controls2
  1610.     :help                   ""
  1611.     :x                      488
  1612.     :y                      40
  1613.     :width                  63
  1614.     :height                 19
  1615.     :constant-width         nil
  1616.     :button-type            :normal
  1617.     :foreground-color       ""
  1618.     :label                  "Restore"
  1619.     :label-type             :string
  1620.     :initial-state          :active
  1621.     :menu                   nil
  1622.     :notify-handler         restore_proc
  1623.     :event-handler          nil
  1624.     :user-data              ()
  1625.     :actions                (
  1626.         (
  1627.         :from                   (display restore)
  1628.         :when                   (Notify )
  1629.         :to                     (display restore)
  1630.         :function_type          CallFunction
  1631.         :arg_type               ()
  1632.         :action                 (restore_proc)
  1633.         )
  1634.     )
  1635. )
  1636. (
  1637.     :type                   :message
  1638.     :name                   message5
  1639.     :owner                  controls2
  1640.     :help                   ""
  1641.     :x                      8
  1642.     :y                      52
  1643.     :width                  138
  1644.     :height                 13
  1645.     :foreground-color       ""
  1646.     :label                  "Total Intensity: NNN"
  1647.     :label-type             :string
  1648.     :label-bold             t
  1649.     :initial-state          :active
  1650.     :event-handler          nil
  1651.     :user-data              ()
  1652.     :actions                ()
  1653. )
  1654. (
  1655.     :type                   :canvas-pane
  1656.     :name                   histocanv
  1657.     :owner                  display
  1658.     :help                   ""
  1659.     :x                      0
  1660.     :y                      72
  1661.     :width                  565
  1662.     :height                 325
  1663.     :background-color       ""
  1664.     :foreground-color       ""
  1665.     :initial-state          :visible
  1666.     :draggable              nil
  1667.     :droppable              nil
  1668.     :default-drop-site      nil
  1669.     :menu                   nil
  1670.     :horizontal-scrollbar   nil
  1671.     :scrollable-width       565
  1672.     :vertical-scrollbar     nil
  1673.     :scrollable-height      325
  1674.     :repaint-proc           histo_repaint_proc
  1675.     :event-handler          histo_event_proc
  1676.     :drawing-model          :xwindows
  1677.     :user-data              ()
  1678.     :actions                (
  1679.         (
  1680.         :from                   (display histocanv)
  1681.         :when                   (Repaint )
  1682.         :to                     (display histocanv)
  1683.         :function_type          CallFunction
  1684.         :arg_type               ()
  1685.         :action                 (histo_repaint_proc)
  1686.         )
  1687.         (
  1688.         :from                   (display histocanv)
  1689.         :when                   (AnyEvent )
  1690.         :to                     (display histocanv)
  1691.         :function_type          CallFunction
  1692.         :arg_type               ()
  1693.         :action                 (histo_event_proc)
  1694.         )
  1695.     )
  1696. )
  1697. )
  1698.